home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / CONUSERS.FRM < prev    next >
Text File  |  1993-12-10  |  3KB  |  131 lines
  1. Version 1.00
  2. BEGIN Form Conusers
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Active Connections"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(17)
  11.     Left         = Char(12)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(56)
  19.     WindowState  = 0
  20.     BEGIN ListBox Ulist1
  21.         BackColor    = QBColor(1)
  22.         DragMode     = 0
  23.         Enabled      = -1
  24.         ForeColor    = QBColor(7)
  25.         Height       = Char(8)
  26.         Left         = Char(5)
  27.         MousePointer = 0
  28.         Sorted       = 0
  29.         TabIndex     = 0
  30.         TabStop      = -1
  31.         Tag          = ""
  32.         Top          = Char(2)
  33.         Visible      = -1
  34.         Width        = Char(44)
  35.     END
  36.     BEGIN CommandButton OKButton
  37.         BackColor    = QBColor(7)
  38.         Cancel       = 0
  39.         Caption      = "OK"
  40.         Default      = 0
  41.         DragMode     = 0
  42.         Enabled      = -1
  43.         Height       = Char(3)
  44.         Left         = Char(20)
  45.         MousePointer = 0
  46.         TabIndex     = 1
  47.         TabStop      = -1
  48.         Tag          = ""
  49.         Top          = Char(11)
  50.         Visible      = -1
  51.         Width        = Char(14)
  52.     END
  53.     BEGIN Label Label1
  54.         Alignment    = 0
  55.         AutoSize     = 0
  56.         BackColor    = QBColor(1)
  57.         BorderStyle  = 0
  58.         Caption      = "Connection ID"
  59.         DragMode     = 0
  60.         Enabled      = -1
  61.         ForeColor    = QBColor(15)
  62.         Height       = Char(1)
  63.         Left         = Char(5)
  64.         MousePointer = 0
  65.         TabIndex     = 2
  66.         Tag          = ""
  67.         Top          = Char(1)
  68.         Visible      = -1
  69.         Width        = Char(14)
  70.     END
  71.     BEGIN Label Label2
  72.         Alignment    = 0
  73.         AutoSize     = 0
  74.         BackColor    = QBColor(1)
  75.         BorderStyle  = 0
  76.         Caption      = "Login Name"
  77.         DragMode     = 0
  78.         Enabled      = -1
  79.         ForeColor    = QBColor(15)
  80.         Height       = Char(1)
  81.         Left         = Char(24)
  82.         MousePointer = 0
  83.         TabIndex     = 3
  84.         Tag          = ""
  85.         Top          = Char(1)
  86.         Visible      = -1
  87.         Width        = Char(15)
  88.     END
  89. END
  90. '$FORM Netdemo
  91. TYPE ConInfo
  92.       connectnum AS INTEGER
  93.       ReturnCode AS INTEGER
  94.       ObjectType AS INTEGER
  95.       ObjectName AS STRING * 48
  96. END TYPE
  97. DECLARE SUB GetConnectionInfo (info AS ConInfo)
  98.  
  99. SUB Form_Load ()
  100. DIM info AS ConInfo
  101. DIM num1 AS STRING * 4
  102.  
  103. FOR i% = 1 TO 100
  104. info.connectnum = i%
  105. CALL GetConnectionInfo(info)    'Call the Procedure
  106. name$ = RTRIM$(info.ObjectName$)
  107. strlen% = LEN(name$)
  108. Name2$ = MID$(name$, 3, strlen%)
  109.  
  110. name1% = INSTR(name$, "NOT-LOGGED-IN")
  111. IF name1% > 0 OR info.ObjectType% < 1 THEN
  112.         GOTO notconnected
  113.         ELSE
  114.         num1 = STR$(i%)
  115.         Ulist1.ADDITEM "  " + num1 + "              " + Name2$
  116. END IF
  117. notconnected:
  118. NEXT i%
  119.  
  120. END SUB
  121.  
  122. SUB Form_Unload (Cancel AS INTEGER)
  123. Netdemo.SHOW
  124. END SUB
  125.  
  126. SUB Okbutton_click ()
  127. Conusers.HIDE
  128. Netdemo.SHOW
  129. END SUB
  130.  
  131.